unit dmda_TechPath;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dmModule, FR_DSet, FR_DBSet, DB, ADODB;


type
  Tdtmda_TechPath=class(TdtmModule)
    adsMasterBillID: TStringField;
    adsMasterBillDate: TDateTimeField;
    adsMasterTechCode: TStringField;
    adsMasterTechName: TStringField;
    adsMasterRemark: TStringField;
    adsMasterEditBillID: TStringField;
    adsMasterEditBillDate: TDateTimeField;
    adsMasterEditTechCode: TStringField;
    adsMasterEditTechName: TStringField;
    adsMasterEditHasCheck: TBooleanField;
    adsMasterEditChecker: TStringField;
    adsMasterEditCheckTime: TDateTimeField;
    adsMasterEditWriter: TStringField;
    adsMasterEditWriteTime: TDateTimeField;
    adsMasterEditModifier: TStringField;
    adsMasterEditModifyTime: TDateTimeField;
    adsMasterEditRemark: TStringField;
    adsDetailID: TStringField;
    adsDetailBillID: TStringField;
    adsDetailWriter: TStringField;
    adsDetailWriteTime: TDateTimeField;
    adsDetailModifier: TStringField;
    adsDetailModifyTime: TDateTimeField;
    adsDetailRemark: TStringField;
    adsDetail: TADODataSet;
    res_Process: TADODataSet;
    adsMasterHasCheck: TBooleanField;
    adsMasterChecker: TStringField;
    adsMasterCheckTime: TDateTimeField;
    adsMasterWriter: TStringField;
    adsMasterWriteTime: TDateTimeField;
    adsMasterModifier: TStringField;
    adsMasterModifyTime: TDateTimeField;
    adsMasterEditHasDefault: TBooleanField;
    adsDetailOrderID: TIntegerField;
    adsMasterHasStop: TBooleanField;
    adsMasterStoper: TStringField;
    adsMasterStopTime: TDateTimeField;
    adsMasterStopMemo: TStringField;
    adsMasterEditHasStop: TBooleanField;
    adsMasterEditStoper: TStringField;
    adsMasterEditStopTime: TDateTimeField;
    adsMasterEditStopMemo: TStringField;
    adsMasterEditStdTime: TFloatField;
    adsMasterStdTime: TFloatField;
    adsMasterEditTechType: TWordField;
    adsMasterTechType: TWordField;
    adsDetailProcessID: TStringField;
    adsDetailHours: TBCDField;
    adsDetailres_ProcessName: TStringField;
    adsMasterHasDefault: TBooleanField;
    adsMasterTechPathInfo: TStringField;
    procedure adsDetailNewRecord(DataSet: TDataSet);
  private
    { Private declarations }
  protected
    procedure ModuleInit;override;
    procedure OpenEditDataSet;override;
  public
    { Public declarations }
  end;

var
  dtmda_TechPath: Tdtmda_TechPath;

implementation
uses  uConst, uMsgBox, uShare, uGlobal, uSQL, dmConnect;
{$R *.dfm}

{ Tdtmda_TechPath }

procedure Tdtmda_TechPath.ModuleInit;
begin
  FUniqueTable := 'da_TechPath';
  inherited;
end;

procedure Tdtmda_TechPath.OpenEditDataSet;
begin
  FMasterEditTable := 'da_TechPath';
  FMasterKeyField := 'BillID';
  inherited;   
end;

procedure Tdtmda_TechPath.adsDetailNewRecord(DataSet: TDataSet);
begin
  inherited;
  SetWriteInfo(DataSet);
end;

end.
